home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / grafik / gfx cards / t&tviewer / viewer.install < prev    next >
Encoding:
Text File  |  1996-07-16  |  11.9 KB  |  426 lines
  1. ;*********************************************************
  2. ;*                                                       *
  3. ;*           $VER: Install 1.24 (08.02.96)               *
  4. ;*                                                       *
  5. ;*                $Filename: Install $                   *
  6. ;*                $Version: 37.30 $                      *
  7. ;*                $Date: 08.02.96 $                      *
  8. ;*                $Creation: 08.02.96 $                  *
  9. ;*                                                       *
  10. ;*         Installer script to install Viewer.           *
  11. ;*                                                       *
  12. ;*     © Copyright 1996 by T&T, all rights reserved      *
  13. ;*                                                       *
  14. ;*********************************************************
  15.  
  16. ;-------------- language env ------------------
  17. (set @language "Deutsch")
  18. ;--------------- version txt ------------------
  19. (set #version "v1.01")
  20. ;-------------- kickstart txt -----------------
  21. (set #bad-kick "Viewer laufen nur ab Kickstart 2.04 !")
  22. ;------------ default paths -------------------
  23. (set #default_bmp "SYS:Tools/T&TViewer/ViewBMP")
  24. (set #default_iff "SYS:Tools/T&TViewer/ViewIFF")
  25. (set #default_pcx "SYS:Tools/T&TViewer/ViewPCX")
  26. (set #default_intui "SYS:Tools/T&TViewer/IntuiView")
  27. (set #default_guide "SYS:Tools/T&TViewer")
  28. (set #default_lib "libs:")
  29. ;-------------- update txt --------------------
  30. (set #update_bmp
  31.    (cat "\n ViewBMP  existiert bereits !\n"
  32.         " Soll die alte Version überschrieben werden ?"
  33.    )
  34. )
  35. (set #update_iff
  36.    (cat "\n ViewIFF  existiert bereits !\n"
  37.         " Soll die alte Version überschrieben werden ?"
  38.    )
  39. )
  40. (set #update_pcx
  41.    (cat "\n ViewPCX  existiert bereits !\n"
  42.         " Soll die alte Version überschrieben werden ?"
  43.    )
  44. )
  45. (set #update.hlp " 1")
  46. ;-------------- welcome txt -------------------
  47. (set #infos
  48.    (cat "\nT&TViewer Installation\n"
  49.          "------------------------\n\n"
  50.           "Dieses Script installiert\n"
  51.           "T&TViewer "#version"\n"
  52.           "auf Ihrem Amiga.\n\n\n"
  53.           "T&TViewer ©'96 by T&T\n"
  54.    )
  55. )
  56. ;---------------- titles txt ------------------
  57. (set #choices "\nSie haben die Wahl :\n")
  58. (set #dest_viewer "In welches Verzeichnis installieren?")
  59. (set #dest_intui "Wo soll die Intuiview.class installiert werden ?")
  60. (set #dest_guide "Wo soll die Viewer.guide installiert werden ?")
  61. (set #dest_lib "Wo soll die support.library installiert werden ?")
  62. (set #dest_bmp "Wo sollen die BMP Viewer installiert werden ?")
  63. (set #dest_iff "Wo sollen die IFF Viewer installiert werden ?")
  64. (set #dest_pcx "Wo sollen die PCX Viewer installiert werden ?")
  65. ;--------------- help txt ---------------------
  66. (set #help_main
  67.    (cat "\n * ViewBMP, ViewIFF und ViewPCX sind\n"
  68.         "   Bildanzeiger für die Formate:\n"
  69.         "   BMP, IFF und PCX\n\n"
  70.         " * IntuiView.class......Konfigurationsfile\n\n"
  71.         " * Viewer.guide.........Dokumentation"
  72.    )
  73. )
  74. (set #help_bmp
  75.    (cat "\n * ViewBMP_pc_low.....ohne Effektmodule, pc relativ\n\n"
  76.         " * ViewBMP_low........ohne Effektmodule\n\n"
  77.         " * ViewBMP+...........mit Effektmodulen\n\n"
  78.         "   (siehe auch Viewer.guide)"
  79.    )
  80. )
  81. (set #help_iff
  82.    (cat "\n * ViewIFF_pc_low.....ohne Effektmodule, pc relativ\n\n"
  83.         " * ViewIFF_low........ohne Effektmodule\n\n"
  84.         " * ViewIFF+...........mit Effektmodulen\n\n"
  85.         "   (siehe auch Viewer.guide)"
  86.    )
  87. )
  88. (set #help_pcx
  89.    (cat "\n * ViewPCX_pc_low.....ohne Effektmodule, pc relativ\n\n"
  90.         " * ViewPCX_low........ohne Effektmodule\n\n"
  91.         " * ViewPCX+...........mit Effektmodulen\n\n"
  92.         "   (siehe auch Viewer.guide)"
  93.    )
  94. )
  95. (set #help_viewer
  96.    (cat "\n Wählen Sie das Verzeichnis, in dem Sie die zuvor "
  97.         "  ausgewählten Komponenten installieren möechten!\n"
  98.         " Mittels Make New Drawer können Sie ein neues\n"
  99.         "  Verzeichnis erstellen."
  100.    )
  101. )
  102. (set #help_intui
  103.    (cat "\n Wählen Sie das Verzeichnis, in dem sich entweder\n"
  104.         "  die alte Intuiview.class befindet oder ein neues!\n"
  105.         " Mittels Make New Drawer können Sie ein neues\n"
  106.         "  Verzeichnis erstellen."
  107.    )
  108. )
  109. (set #help_guide
  110.    (cat "\n Wählen Sie das Verzeichnis, in dem Sie die\n"
  111.         "  Dokumentation installieren möchten!\n"
  112.         "  (Viewer.install wird ebenfalls in dieses\n"
  113.         "   Verzeichnis kopiert)\n"
  114.         " Mittels Make New Drawer können Sie ein neues\n"
  115.         "  Verzeichnis erstellen."
  116.    )
  117. )
  118. (set #help_lib
  119.    (cat "\n Wählen Sie das Verzeichnis, in dem Sie die\n"
  120.         "  support.library installieren möchten!\n"
  121.         " Mittels Make New Drawer können Sie ein neues\n"
  122.         "  Verzeichnis erstellen."
  123.    )
  124. )
  125. ;---------- kickstart & workbench --------------
  126. (if (< (/ (getversion) 65536) 37)
  127.    (
  128.      (abort #bad-kick)
  129.    )
  130. )
  131. (set wbversion (/ (getversion "version.library") 65536))
  132.  
  133. (user 1)                ;Voreinstellung user 1
  134. (message #infos "\n\n")            ;Titelbild
  135. (welcome)                ;  darstellen
  136. ;------------ prepare paths --------------------
  137. (if (= @user-level 0)            ;nötig, da nur ein directory
  138.    (makedir "SYS:Tools/T&TViewer")    ;  created wird (!)
  139. )
  140. ;------------ show mainmenu T&TViewer ----------
  141. (set point_main                ;Hauptmenu variable
  142.    (askoptions
  143.       (prompt #choices)
  144.       (help #help_main)
  145.       (default #default_file)
  146.       (choices
  147.         " ViewBMP"            ;bit  1 
  148.         " ViewIFF"            ;bit  2
  149.         " ViewPCX"            ;bit  4
  150.         " Intuiview.class"        ;bit  5
  151.         " Viewer.guide"            ;bit 16
  152.       )
  153.       (default 31)                       ; alles
  154.    )
  155. )
  156. ;------------- show submenu ViewBMP ------------
  157. (if (bitand point_main 1)
  158.    (set point_bmp
  159.       (askoptions
  160.          (prompt #choices)
  161.          (help #help_bmp)
  162.          (choices
  163.             "ViewBMP_pc_low"        ;bit 1
  164.             "ViewBMP_low"        ;bit 2
  165.             "ViewBMP+, support.library"    ;bit 4
  166.          )
  167.          (default 7)                    ; alles
  168.       )
  169.    )
  170. )
  171. (if (and (not (bitand point_bmp 0))(bitand point_main 1))
  172.    (set destination
  173.       (askdir
  174.          (prompt #dest_bmp)
  175.          (help #help_bmp)
  176.          (default #default_bmp)
  177.      (newpath)            ;Pfad anzeigen
  178.       )
  179.    )
  180. )
  181. ;---------- create default directories ---------
  182. (if (and (= destination #default_bmp)(bitand point_main 1));default path ?
  183.    ((makedir "sys:tools/T&TViewer" (infos))    ;create directories
  184.     (makedir "sys:tools/T&TViewer/ViewBMP" (infos))) ;wegen else
  185. )
  186. ;---------- copy "ViewBMP_pc_low.#?" -----------
  187. (if (and (bitand point_bmp 1)(bitand point_main 1))
  188.    (copyfiles
  189.       (prompt #dest_bmp)
  190.       (help #help_bmp)
  191.       (source "ViewBMP/ViewBMP_pc_low")
  192.       (dest destination)
  193.       (infos)                ;infos kopieren
  194.       (confirm)                ;kopierte files anzeigen
  195.       (optional "force")        ;überschreibt auch
  196.    )                                    ;  löschgeschützte files
  197. )
  198. (complete 7)
  199. ;---------- copy "ViewBMP_low.#?" --------------
  200. (if (and (bitand point_bmp 2)(bitand point_main 1))
  201.    (copyfiles
  202.       (prompt #dest_bmp)
  203.       (help #help_bmp)
  204.       (source "ViewBMP/ViewBMP_low")
  205.       (dest destination)
  206.       (infos)
  207.       (confirm)
  208.       (optional "force")
  209.    )
  210. )
  211. (complete 14)
  212. ;---------- copy "ViewBMP+.#?" -----------------
  213. (if (and (bitand point_bmp 4)(bitand point_main 1))
  214.    (copyfiles
  215.       (prompt #dest_bmp)
  216.       (help #help_bmp)
  217.       (source "ViewBMP/ViewBMP+")
  218.       (dest destination)
  219.       (infos)
  220.       (confirm)
  221.       (optional "force")
  222.    )
  223. )
  224. (complete 21)
  225. ;--------------- show submenu ViewIFF ----------
  226. (if (bitand point_main 2)
  227.    (set point_iff
  228.       (askoptions
  229.          (prompt #choices)
  230.          (help #help_iff)
  231.          (choices
  232.             "ViewIFF_pc_low"
  233.             "ViewIFF_low"
  234.             "ViewIFF+, support.library"
  235.          )
  236.          (default 7)  ; alles
  237.       )
  238.    )
  239. )
  240. (if (and (not (bitand point_iff 0))(bitand point_main 2))
  241.    (set destination
  242.       (askdir
  243.          (prompt #dest_iff)
  244.          (help #help_iff)
  245.          (default #default_iff)
  246.      (newpath)
  247.       )
  248.    )
  249. )
  250. ;---------- create default directories ---------
  251. (if (and (= destination #default_iff)(bitand point_main 2))
  252.    ((makedir "sys:tools/T&TViewer" (infos))
  253.     (makedir "sys:tools/T&TViewer/ViewIFF" (infos)))
  254. )
  255. ;--------- copy "ViewIFF_pc_low.#?" ------------
  256. (if (and (bitand point_iff 1)(bitand point_main 2))
  257.    (copyfiles
  258.       (prompt #dest_iff)
  259.       (help #help_iff)
  260.       (source "ViewIFF/ViewIFF_pc_low")
  261.       (dest destination)
  262.       (infos)
  263.       (confirm)
  264.       (optional "force")
  265.    )
  266. )
  267. (complete 28)
  268. ;--------- copy "ViewIFF_low.#?" ---------------
  269. (if (and (bitand point_iff 2)(bitand point_main 2))
  270.    (copyfiles
  271.       (prompt #dest_iff)
  272.       (help #help_iff)
  273.       (source "ViewIFF/ViewIFF_low")
  274.       (dest destination)
  275.       (infos)
  276.       (confirm)
  277.       (optional "force")
  278.    )
  279. )
  280. (complete 35)
  281. ;--------- copy "ViewIFF+.#?" ------------------
  282. (if (and (bitand point_iff 4)(bitand point_main 2))
  283.    (copyfiles
  284.       (prompt #dest_iff)
  285.       (help #help_iff)
  286.       (source "ViewIFF/ViewIFF+")
  287.       (dest destination)
  288.       (infos)
  289.       (confirm)
  290.       (optional "force")
  291.    )
  292. )
  293. (complete 42)
  294. ;--------- show submenu ViewPCX ----------------
  295. (if (bitand point_main 4)
  296.    (set point_pcx
  297.       (askoptions
  298.          (prompt #choices)
  299.          (help #help_pcx)
  300.          (choices
  301.             "ViewPCX_pc_low"
  302.             "ViewPCX_low"
  303.             "ViewPCX+, support.library"
  304.          )
  305.          (default 7)  ; alles
  306.       )
  307.    )
  308. )
  309. (if (and (not (bitand point_pcx 0))(bitand point_main 4))
  310.    (set destination
  311.       (askdir
  312.          (prompt #dest_pcx)
  313.          (help #help_pcx)
  314.          (default #default_pcx)
  315.          (newpath)
  316.       )
  317.    )
  318. )
  319. ;---------- create default directories ---------
  320. (if (and (= destination #default_pcx)(bitand point_main 4))
  321.    ((makedir "sys:tools/T&TViewer" (infos))
  322.     (makedir "sys:tools/T&TViewer/ViewPCX" (infos)))
  323. )
  324. ;--------- copy "ViewPCX_pc_low.#?" ------------
  325. (if (and (bitand point_pcx 1)(bitand point_main 4))
  326.    (copyfiles
  327.       (prompt #dest_pcx)
  328.       (help #help_pcx)
  329.       (source "ViewPCX/ViewPCX_pc_low")
  330.       (dest destination)
  331.       (infos)
  332.       (confirm)
  333.       (optional "force")
  334.    )
  335. )
  336. (complete 49)
  337. ;--------- copy "ViewPCX_low.#?" ---------------
  338. (if (and (bitand point_pcx 2)(bitand point_main 4))
  339.    (copyfiles
  340.       (prompt #dest_pcx)
  341.       (help #help_pcx)
  342.       (source "ViewPCX/ViewPCX_low")
  343.       (dest destination)
  344.       (infos)
  345.       (confirm)
  346.       (optional "force")
  347.    )
  348. )
  349. (complete 56)
  350. ;--------- copy "ViewPCX+.#?" ------------------
  351. (if (and (bitand point_pcx 4)(bitand point_main 4))
  352.    (copyfiles
  353.       (prompt #dest_pcx)
  354.       (help #help_pcx)
  355.       (source "ViewPCX/ViewPCX+")
  356.       (dest destination)
  357.       (infos)
  358.       (confirm)
  359.       (optional "force")
  360.    )
  361. )
  362. (complete 63)
  363. ;-------- copy "support.library" (plus) --------
  364. (if (or (bitand point_bmp 4)
  365.         (bitand point_iff 4)
  366.         (bitand point_pcx 4))
  367.    (copyfiles
  368.       (source "libs/support.library")
  369.       (dest #default_lib)
  370.       (optional "force")
  371.    )
  372. )
  373. (complete 70)
  374. ;-------------- IntuiView.class ----------------
  375. (if (bitand point_main 8)
  376.    (set destination
  377.       (askdir
  378.          (prompt #dest_intui)
  379.          (help #help_intui)
  380.          (default #default_intui)
  381.      (newpath)
  382.       )
  383.    )
  384. )
  385. (if (and (= destination #default_intui)(bitand point_main 8))
  386.    ((makedir "sys:tools/T&TViewer" (infos))
  387.     (makedir "sys:tools/T&TViewer/IntuiView" (infos)))
  388. )
  389. ;---------- copy Intuiview.class ---------------
  390. (if (bitand point_main 8)
  391.    (copyfiles
  392.       (source "IntuiView/IntuiView.class")
  393.       (dest destination)
  394.       (optional "force")
  395.    )
  396. )
  397. (complete 80)
  398. ;---------------- Viewer.guide -----------------
  399. (if (bitand point_main 16)
  400.    (set destination
  401.       (askdir
  402.          (prompt #dest_guide)
  403.          (help #help_guide)
  404.          (default #default_guide)
  405.       )
  406.    )
  407. )
  408. (if (bitand point_main 16)
  409.   ((copyfiles
  410.       (source "Viewer.guide")
  411.       (dest destination)
  412.       (infos)
  413.       (optional "force")
  414.    )
  415.    (copyfiles
  416.       (source "Test.lbm")
  417.       (dest destination)
  418.       (infos)
  419.       (optional "force")
  420.    ))
  421. )
  422. ;---------------- 100% complete ----------------
  423. (set @default-dest destination) ;Pfad für logfile setzen
  424. (complete 100)
  425. (exit)
  426.